home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Tcl-Tk 8.0 / Pre-installed version / tcl8.0 / tests / pwd.test < prev    next >
Encoding:
Text File  |  1997-08-15  |  711 b   |  23 lines  |  [TEXT/ALFA]
  1. # Commands covered:  pwd
  2. #
  3. # This file contains a collection of tests for one or more of the Tcl
  4. # built-in commands.  Sourcing this file into Tcl runs the tests and
  5. # generates output for errors.  No output means no errors were found.
  6. #
  7. # Copyright (c) 1991-1993 The Regents of the University of California.
  8. # Copyright (c) 1994-1997 Sun Microsystems, Inc.
  9. #
  10. # See the file "license.terms" for information on usage and redistribution
  11. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  12. #
  13. # SCCS: @(#) pwd.test 1.2 97/08/13 23:06:41
  14.  
  15. if {[string compare test [info procs test]] == 1} then {source defs}
  16.  
  17. test pwd-1.1 {simple pwd} {
  18.     catch pwd
  19. } 0
  20. test pwd-1.2 {simple pwd} {
  21.     expr [string length pwd]>0
  22. } 1
  23.